Table[NextPrime[2^k]>(2^k+2*k), {k,51,100}]